
Partial Class EditProfile
    Inherits Basepage

    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        UserProfile1.SaveProfile()
        lblFeedbackOK.Visible = True

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim profile As ProfileCommon = Me.Profile
        profile = Me.Profile.GetProfile(Me.Profile.UserName)
    End Sub
End Class
